home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / LATEX macros.adf / AMSTeX / amsppt.sty < prev    next >
Text File  |  1988-02-21  |  20KB  |  491 lines
  1. \catcode`\@=11
  2. \ifx\amspptloaded@AmS\relax\catcode`\@=\active
  3.  \endinput\else\let\amspptloaded@AmS\relax\fi
  4. \parindent10\p@
  5. \hsize26pc
  6. \vsize42pc
  7. \normallineskiplimit\p@
  8. \captionwidth@\hsize
  9. \advance\captionwidth@-1.5in
  10. %  Note -- the AMS at this time (September 1986) has not yet installed
  11. %          the CM fonts, but is still using AM fonts internally.  This
  12. %          file has been modified to use CM fonts to conform to the
  13. %          font set now in standard distribution.
  14. \font@\ninerm=cmr9
  15. \font@\eightrm=cmr8
  16. \font@\sixrm=cmr6
  17. \font@\ninei=cmmi9    \skewchar\ninei='177
  18. \font@\eighti=cmmi8   \skewchar\eighti='177
  19. \font@\sixi=cmmi6     \skewchar\sixi='177
  20. \font@\ninesy=cmsy9   \skewchar\ninesy='60
  21. \font@\eightsy=cmsy8  \skewchar\eightsy='60
  22. \font@\sixsy=cmsy6    \skewchar\sixsy='60
  23. \font@\ninebf=cmbx9
  24. \font@\eightbf=cmbx8
  25. \font@\sixbf=cmbx6
  26. \font@\nineit=cmti9
  27. \font@\eightit=cmti8
  28. \font@\ninesl=cmsl9
  29. \font@\eightsl=cmsl8
  30. %\font@\ninemsx=msxm9
  31. %\font@\eightmsx=msxm8
  32. %\font@\sixmsx=msxm6
  33. %\font@\ninemsy=msym9
  34. %\font@\eightmsy=msym8
  35. %\font@\sixmsy=msym6
  36. \font@\tensmc=cmcsc10
  37. \def\tenpoint{\def\pointsize@{10}%
  38.  \normalbaselineskip12\p@
  39.  \abovedisplayskip12\p@ plus3\p@ minus9\p@
  40.  \belowdisplayskip12\p@ plus3\p@ minus9\p@
  41.  \abovedisplayshortskip\z@ plus3\p@
  42.  \belowdisplayshortskip7\p@ plus3\p@ minus4\p@
  43.  \textfont@\rm\tenrm
  44.  \textfont@\it\tenit
  45.  \textfont@\sl\tensl
  46.  \textfont@\bf\tenbf
  47.  \textfont@\smc\tensmc
  48.  \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
  49.  \let\big\tenbig@
  50.  \textfont\z@\tenrm  \scriptfont\z@\sevenrm  \scriptscriptfont\z@\fiverm
  51.  \textfont\@ne\teni  \scriptfont\@ne\seveni  \scriptscriptfont\@ne\fivei
  52.  \textfont\tw@\tensy \scriptfont\tw@\sevensy \scriptscriptfont\tw@\fivesy
  53.  \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  54.  \textfont\itfam\tenit
  55.  \textfont\slfam\tensl
  56.  \textfont\bffam\tenbf \scriptfont\bffam\sevenbf
  57.   \scriptscriptfont\bffam\fivebf
  58.  %\textfont\msxfam=\tenmsx
  59.  %\scriptfont\msxfam=\sevenmsx
  60.  %\scriptscriptfont\msxfam=\fivemsx
  61.  %\textfont\msyfam=\tenmsy
  62.  %\scriptfont\msyfam=\sevenmsy
  63.  %\scriptscriptfont\msyfam=\fivemsy
  64.  \fi
  65.  \setbox\strutbox\hbox{\vrule height8.5\p@ depth3.5\p@ width\z@}%
  66.  \setbox\strutbox@\hbox{\vrule height8\p@ depth3\p@ width\z@}%
  67.  \normalbaselines\tenrm\ex@=.2326ex}
  68. \def\eightpoint{\def\pointsize@{8}%
  69.  \normalbaselineskip10\p@
  70.  \abovedisplayskip10\p@ plus2.4\p@ minus7.2\p@
  71.  \belowdisplayskip10\p@ plus2.4\p@ minus7.2\p@
  72.  \abovedisplayshortskip\z@ plus2.4\p@
  73.  \belowdisplayshortskip5.6\p@ plus2.4\p@ minus3.2\p@
  74.  \textfont@\rm\eightrm
  75.  \textfont@\it\eightit
  76.  \textfont@\sl\eightsl
  77.  \textfont@\bf\eightbf
  78.  \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
  79.  \let\big\eightbig@
  80.  \textfont\z@\eightrm \scriptfont\z@\sixrm  \scriptscriptfont\z@\fiverm
  81.  \textfont\@ne\eighti \scriptfont\@ne\sixi  \scriptscriptfont\@ne\fivei
  82.  \textfont\tw@\eightsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivesy
  83.  \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  84.  \textfont\itfam\eightit
  85.  \textfont\slfam\eightsl
  86.  \textfont\bffam\eightbf \scriptfont\bffam\sixbf
  87.    \scriptscriptfont\bffam\fivebf
  88.  %\textfont\msxfam=\eightmsx
  89.  %\scriptfont\msxfam=\sixmsx
  90.  %\scriptscriptfont\msxfam=\fivemsx
  91.  %\textfont\msyfam=\eightmsy
  92.  %\scriptfont\msyfam=\sixmsy
  93.  %\scriptscriptfont\msyfam=\fivemsy
  94.  \fi
  95.  \setbox\strutbox\hbox{\vrule height7\p@ depth3\p@ width\z@}%
  96.  \setbox\strutbox@\hbox{\vrule height6.5\p@ depth2.5\p@ width\z@}%
  97.  \normalbaselines\eightrm\ex@=.2326ex}
  98. \def\tenbig@#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}}
  99. \def\eightbig@#1{{\hbox{$\textfont\z@\ninerm\textfont\tw@\ninesy
  100.  \left#1\vbox to6.5\p@{}\right.\n@space$}}}
  101. \def\footmarkform@#1{$^{#1}$}
  102. \let\thefootnotemark\footmarkform@
  103. \def\makefootnote@#1#2{\insert\footins
  104.  {\interlinepenalty\interfootnotelinepenalty
  105.  \eightpoint\splittopskip\ht\strutbox\splitmaxdepth\dp\strutbox
  106.  \floatingpenalty\@MM\leftskip\z@\rightskip\z@\spaceskip\z@\xspaceskip\z@
  107.  \noindent{#1}\footstrut\ignorespaces#2\unskip\lower\dp\strutbox
  108.  \vbox to\dp\strutbox{}}}
  109. \footmarkcount@\z@
  110. \def\footnotemark{\let\@sf\empty\relaxnext@\ifhmode\edef
  111.  \@sf{\spacefactor\the\spacefactor}\/\fi
  112.  \def\next@{\ifx[\next\let\next\nextii@\else
  113.   \ifx"\next\let\next\nextiii@\else
  114.   \let\next\nextiv@\fi\fi\next}%
  115.  \def\nextii@[##1]{\footmarkform@{##1}\@sf}%
  116.  \def\nextiii@"##1"{{##1}\@sf}%
  117.  \def\nextiv@{\global\advance\footmarkcount@\@ne
  118.   \footmarkform@{\number\footmarkcount@}\@sf}%
  119.  \futurelet\next\next@}
  120. \def\footnotetext{\relaxnext@
  121.  \def\next@{\ifx[\next\let\next\nextii@\else
  122.   \ifx"\next\let\next\nextiii@\else
  123.   \let\next\nextiv@\fi\fi\next}%
  124.  \def\nextii@[##1]##2{\makefootnote@{\footmarkform@{##1}}{##2}}%
  125.  \def\nextiii@"##1"##2{\makefootnote@{##1}{##2}}%
  126.  \def\nextiv@##1{\makefootnote@{\footmarkform@{\number\footmarkcount@}}{##1}}%
  127.  \futurelet\next\next@}
  128. \def\footnote{\let\@sf\empty\relaxnext@\ifhmode\edef
  129.  \@sf{\spacefactor\the\spacefactor}\/\fi
  130.  \def\next@{\ifx[\next\let\next\nextii@\else
  131.   \ifx"\next\let\next\nextiii@\else
  132.   \let\next\nextiv@\fi\fi\next}%
  133.  \def\nextii@[##1]##2{\footnotemark[##1]\footnotetext[##1]{##2}}%
  134.  \def\nextiii@"##1"##2{\footnotemark"##1"\footnotetext"##1"{##2}}%
  135.  \def\nextiv@##1{\footnotemark\footnotetext{##1}}%
  136.  \futurelet\next\next@}
  137. \def\adjustfootnotemark#1{\advance\footmarkcount@#1\relax}
  138. \let\topmatter\relax
  139. \newbox\titlebox@
  140. \setbox\titlebox@\vbox{}
  141. \Invalid@\overlong
  142. \def\overlong@{\def\next@{\ifx\next\overlong\def\filhss@
  143.  {plus\@m\p@ minus\@m\p@}\def\next@\overlong{\nextii@}\else
  144.  \def\filhss@{plus\@m\p@\relax}\let\next@\nextii@\fi\next@}}
  145. \def\title{\relaxnext@
  146.  \def\nextii@##1\endtitle{{\let\\=\cr
  147.  \global\setbox\titlebox@\vbox{\tabskip\z@\filhss@
  148.  \halign to\hsize{\tenpoint\bf\hfil\ignorespaces####\unskip\hfil\cr##1\cr}}}}%
  149.  \overlong@
  150.  \futurelet\next\next@}
  151. \newif\ifauthor@
  152. \newbox\authorbox@
  153. \def\author{\relaxnext@
  154.  \def\nextii@##1\endauthor{{\let\\=\cr
  155.  \global\setbox\authorbox@\vbox{\tabskip\z@\filhss@
  156.  \halign to\hsize{\tenpoint\smc\hfil\ignorespaces####\unskip\hfil\cr##1\cr
  157.  }}}}\overlong@\global\author@true
  158.  \futurelet\next\next@}
  159. \newif\ifaffil@
  160. \newbox\affilbox@
  161. \def\affil{\relaxnext@
  162.  \def\nextii@{\bgroup\let\\=\cr
  163.  \global\setbox\affilbox@\vbox\bgroup\tabskip\z@\filhss@
  164.  \halign to\hsize\bgroup\tenpoint\hfil\ignorespaces####\unskip\hfil\cr}%
  165.  \overlong@
  166.  \global\affil@true
  167.  \futurelet\next\next@}
  168. \def\endaffil{\cr\egroup\egroup\egroup}
  169. \newcount\addresscount@
  170. \addresscount@\@ne
  171. \def\address#1{\expandafter\gdef\csname address\number\addresscount@
  172.  \endcsname{\noindent\eightpoint\ignorespaces#1\par}\global
  173.  \advance\addresscount@\@ne}
  174. \newif\ifdate@
  175. \def\date#1{\global\date@true\gdef\date@{\tenpoint\ignorespaces#1\unskip}}
  176. \newif\ifthanks@
  177. \def\thanks#1{\global\thanks@true\gdef\thanks@{\eightpoint\ignorespaces
  178.  #1\unskip}}
  179. \Invalid@\nofrills
  180. \Invalid@\usualspace
  181. \newif\ifnofrills@
  182. \def\usualspace@#1{\ifnofrills@\def\usualspace{#1}\fi}
  183. \def\nofrills@#1#2{\def\next@{\ifx\next\nofrills\nofrills@true\let#2\relax
  184.  \def\next@\nofrills{\nextii@}\else\nofrills@false
  185.  \def#2{#1}\let\next@\nextii@\fi\next@}}
  186. \def\thekeywords@{}
  187. \def\keywords{\relaxnext@\nofrills@{{\it Keywords.\enspace}}\keywords@
  188.  \def\nextii@##1{\def\thekeywords@{\usualspace@{{\it\enspace}}\noindent
  189.   \eightpoint\keywords@\ignorespaces##1\par}}%
  190.  \futurelet\next\next@}
  191. \def\thesubjclass@{}
  192. \def\subjclass{\relaxnext@\nofrills@{{\rm1980 {\it Mathematics subject
  193.  classifications}\/\rm: }}\subjclass@
  194.  \def\nextii@##1{\def\thesubjclass@{\usualspace@
  195.   {{\rm\spacefactor2000 \space}}\noindent\eightpoint
  196.   \subjclass@\ignorespaces##1\par}}%
  197.  \futurelet\next\next@}
  198. \def\proclaim{\innerproclaim@}
  199. \def\endproclaim{\innerendproclaim@}
  200. \newif\ifabstract@
  201. \def\theabstract@{}
  202. \def\abstract{\relaxnext@\nofrills@{{Abstract.\enspace}}\abstract@
  203.  \long\def\nextii@##1{\long\gdef\theabstract@{\usualspace@
  204.   {{\eightpoint\enspace}}\eightpoint\abstract@\ignorespaces##1\par}}%
  205.  \global\abstract@true
  206.  \futurelet\next\next@}
  207. \def\pretitle{}
  208. \def\preauthor{}
  209. \def\preaffil{}
  210. \def\predate{}
  211. \def\preabstract{}
  212. \def\prepaper{}
  213. \def\endtopmatter{\hrule height\z@\vskip-\topskip
  214.  \pretitle
  215.  \vskip24\p@ plus12\p@ minus12\p@
  216.  \unvbox\titlebox@
  217.  \preauthor
  218.  \ifauthor@\vskip12\p@ plus6\p@ minus3\p@\unvbox\authorbox@\fi
  219.  \preaffil
  220.  \ifaffil@\vskip10\p@ plus5\p@ minus2\p@\unvbox\affilbox@\fi
  221.  \predate
  222.  \ifdate@\vskip6\p@ plus2\p@ minus\p@\hbox to\hsize{\hfil\date@\hfil}\fi
  223.  \preabstract
  224.  \ifthanks@\makefootnote@{}{\thanks@}\fi
  225.  \ifabstract@\vskip15\p@ plus12\p@ minus12\p@
  226.   {\leftskip24\p@\rightskip24\p@\noindent\theabstract@}\fi
  227.  \prepaper
  228.  \outer\def\proclaim{\innerproclaim@}%
  229.  \outer\def\endproclaim{\innerendproclaim@}%
  230.  \vskip18\p@ plus12\p@ minus6\p@\tenpoint}
  231. \newcount\addressnum@
  232. \outer\def\enddocument{\nobreak\sfcode`\.=3000 \vskip12\p@ minus6\p@
  233.  \thekeywords@\thesubjclass@\nobreak\vskip12\p@ minus6\p@\addressnum@\z@
  234.  \loop\ifnum\addressnum@<\addresscount@\advance\addressnum@\@ne
  235.  \csname address\number\addressnum@\endcsname\repeat
  236.  \vfill\supereject\end}
  237. \newbox\headingbox@
  238. \outer\def\heading{\relaxnext@
  239.  \def\nextii@{\bigbreak\bgroup\let\\=\cr
  240.  \global\setbox\headingbox@\vbox\bgroup\tabskip\z@\filhss@
  241.  \halign to\hsize\bgroup\tenpoint\smc\hfil\ignorespaces####\unskip\hfil\cr}%
  242.  \overlong@
  243.  \futurelet\next\next@}
  244. \def\endheading{\cr\egroup\egroup\egroup\unvbox\headingbox@
  245.  \nobreak\medskip}
  246. \def\subheading{\relaxnext@\nofrills@{.\enspace}\subheading@
  247.  \def\nextii@##1{\medbreak\noindent{\usualspace@{{\bf\enspace}}%
  248.   \tenpoint\bf\ignorespaces##1\unskip\subheading@}\ignorespaces}%
  249.  \futurelet\next\next@}
  250. \newif\ifproclaim@
  251. \def\innerproclaim@{\relaxnext@\nofrills@{.\enspace}\proclaim@
  252.  \def\nextii@##1{\medbreak\noindent\def\next{8}%
  253.   \ifx\pointsize@\next\uppercase
  254.   {\usualspace@{{\rm\enspace}}\ignorespaces\rm##1\unskip\proclaim@}\else
  255.   {\usualspace@{{\smc\enspace}}\smc\ignorespaces##1\unskip\proclaim@}\fi\sl
  256.   \ifproclaim@\Err@{Previous \expandafter
  257.  \eat@\string\\proclaim has no matching \expandafter
  258.  \eat@\string\\endproclaim}\else\proclaim@true\fi\ignorespaces}%
  259.  \futurelet\next\next@}
  260. \def\innerendproclaim@{\proclaim@false\par\rm
  261.  \ifdim\lastskip<\medskipamount\removelastskip\penalty55 \medskip\fi}
  262. \def\demo{\relaxnext@\nofrills@{:\enspace}\demo@
  263.  \def\nextii@##1{\par\ifdim\lastskip<\smallskipamount\removelastskip
  264.   \smallskip\fi\noindent{\usualspace@{{\smc\enspace}}%
  265.   \smc\ignorespaces##1\unskip\demo@}\rm
  266.   \ifproclaim@\Err@{Previous \expandafter
  267.   \eat@\string\\proclaim had no matching \expandafter
  268.   \eat@\string\\endproclaim}\fi\ignorespaces}%
  269.  \futurelet\next\next@}
  270. \def\enddemo{\par\smallskip}
  271. \def\qed{\ifhmode\unskip\nobreak\fi\ifmmode\ifinner\else\hskip5\p@\fi\fi
  272.  \hbox{\hskip5\p@\vrule width4\p@ height6\p@ depth1.5\p@\hskip\p@}}
  273. \def\cite#1{\relaxnext@
  274.  \def\nextiii@##1,##2\end@{[{\bf##1},##2]}%
  275.  \in@,{#1}\ifin@\def\next{\nextiii@#1\end@}\else
  276.  \def\next{[{\bf#1}]}\fi\next}
  277. \newcount\rostercount@
  278. \newif\iffirstitem@
  279. \newtoks\everypartoks@
  280. \let\plainitem@\item
  281. \def\par@{\everypartoks@=\expandafter{\the\everypar}\everypar{}}
  282. \def\roster{\edef\leftskip@{\leftskip\the\leftskip}\relaxnext@
  283.  \rostercount@\z@\def\item{\futurelet\next\rosteritem@}%
  284.  \def\next@{\ifx\next\runinitem\let\next\nextii@\else
  285.   \let\next\nextiii@\fi\next}%
  286.  \def\nextii@\runinitem{\unskip
  287.   \def\next@{\ifx\next[\let\next\nextii@\else
  288.    \ifx\next"\let\next\nextiii@\else\let\next\nextiv@\fi\fi\next}%
  289.   \def\nextii@[####1]{\rostercount@####1\relax
  290.    \enspace{\rm(\number\rostercount@)}~\ignorespaces}%
  291.   \def\nextiii@"####1"{\enspace{\rm####1}~\ignorespaces}%
  292.   \def\nextiv@{\enspace{\rm(1)}\rostercount@\@ne~}%
  293.   \par@\firstitem@false
  294.   \futurelet\next\next@}%
  295.  \def\nextiii@{\par\par@\penalty\@m\smallskip\vskip-\parskip
  296.   \firstitem@true}%
  297.  \futurelet\next\next@}
  298. \def\rosteritem@{\iffirstitem@\firstitem@false\else\par\vskip-\parskip\fi
  299.  \leftskip3\parindent\noindent
  300.  \def\next@[##1]{\rostercount@##1\relax
  301.   \llap{\hbox to2.5\parindent{\hss\rm(\number\rostercount@)}\hskip
  302.   .5\parindent}\ignorespaces}%
  303.  \def\nextii@"##1"{%
  304.   \llap{\hbox to2.5\parindent{\hss\rm##1}\hskip.5\parindent}\ignorespaces}%
  305.  \def\nextiii@{\advance\rostercount@\@ne
  306.   \llap{\hbox to2.5\parindent{\hss\rm(\number\rostercount@)}\hskip
  307.   .5\parindent}}%
  308.  \ifx\next[\let\next\next@\else\ifx\next"\let\next\nextii@\else
  309.  \let\next\nextiii@\fi\fi\next}
  310. \def\therosteritem#1{{\rm(\ignorespaces#1\unskip)}}
  311. \newif\ifnextRunin@
  312. \def\endroster{\relaxnext@\par\leftskip@
  313.  \penalty-50 \vskip-\parskip\smallskip
  314.  \def\next@{\ifx\next\Runinitem\let\next@\relax
  315.   \else\nextRunin@false\let\item\plainitem@\ifx\next\par
  316.   \def\next@\par{\everypar=\expandafter{\the\everypartoks@}}%
  317.   \else\def\next@{\noindent\everypar=\expandafter{\the\everypartoks@}}%
  318.   \fi\fi\next@}%
  319.  \futurelet\next\next@}
  320. \newcount\rosterhangafter@
  321. \def\Runinitem#1\roster\runinitem{\relaxnext@\rostercount@\z@
  322.  \def\item{\futurelet\next\rosteritem@}%
  323.  \def\runinitem@{#1}%
  324.  \def\next@{\ifx\next[\let\next\nextii@\else\ifx\next"\let\next\nextiii@
  325.   \else\let\next\nextiv@\fi\fi\next}%
  326.  \def\nextii@[##1]{\rostercount@##1\relax\def\item@{{\rm(\number
  327.   \rostercount@)}}\nextv@}%
  328.  \def\nextiii@"##1"{\def\item@{{\rm##1}}\nextv@}%
  329.  \def\nextiv@{\advance\rostercount@\@ne\def\item@{{\rm(\number
  330.   \rostercount@)}}\nextv@}%
  331.  \def\nextv@{\setbox\z@\vbox
  332.   {\ifnextRunin@\noindent\fi
  333.   \runinitem@\unskip\enspace\item@~\par
  334.   \global\rosterhangafter@\prevgraf}%
  335.   \firstitem@false\ifnextRunin@\else\par\fi
  336.   \hangafter\rosterhangafter@\hangindent3\parindent
  337.   \ifnextRunin@\noindent\fi\runinitem@\unskip\enspace
  338.   \item@~\ifnextRunin@\else\par@\fi\nextRunin@true\ignorespaces}%
  339.  \futurelet\next\next@}
  340. \outer\def\Refs{\relaxnext@\def\refskip@{\hskip\@ne sp\hskip\m@ne sp}%
  341.  \def\next@{\ifx\next\nofrills\def\next@\nofrills{\nextii@}\else
  342.   \def\next@{\nextii@{References}}\fi\next@}%
  343.  \def\nextii@##1{\bigbreak\hbox to\hsize{\hfil\tenpoint
  344.   \smc\ignorespaces##1\unskip\hfil}\nobreak
  345.   \bigskip\eightpoint\sfcode`.=\@m}%
  346.  \futurelet\next\next@}
  347. \newbox\nobox@        \newbox\keybox@        \newbox\bybox@
  348. \newbox\bysamebox@    \newbox\paperbox@      \newbox\paperinfobox@
  349. \newbox\jourbox@      \newbox\volbox@        \newbox\issuebox@
  350. \newbox\yrbox@                               \newbox\pagesbox@
  351. \newbox\bookbox@
  352. \newbox\bookinfobox@  \newbox\publbox@       \newbox\publaddrbox@
  353. \newbox\finalinfobox@
  354. \newif\ifno@          \newif\ifkey@          \newif\ifby@ \newif\ifmanyby@
  355. \newif\ifbysame@      \newif\ifpaper@        \newif\ifpaperinfo@
  356. \newif\ifjour@        \newif\ifvol@          \newif\ifissue@
  357. \newif\ifyr@ \newif\iftoappear@              \newif\ifpages@ \newif\ifpage@
  358. \newif\ifbook@ \newif\ifinbook@
  359. \newif\ifbookinfo@    \newif\ifpubl@         \newif\ifpubladdr@
  360. \newif\iffinalinfo@   \newif\ifafterbook@
  361. \newif\iffirstref@    \newif\iflastref@      \newif\ifprevjour@
  362. \newif\ifprevbook@    \newif\ifprevinbook@   \newif\ifnojourinfo@
  363. \newdimen\maxbysamerule@
  364. \maxbysamerule@1in
  365. \def\ref@{\global\no@false\global\key@false\global\by@false
  366.  \global\bysame@false\global\paper@false\global\paperinfo@false
  367.  \global\jour@false\global\vol@false\global\issue@false
  368.  \global\yr@false\global\toappear@false\global\pages@false\global\page@false
  369.  \global\book@false\global\inbook@false
  370.  \global\bookinfo@false\global\publ@false\global\publaddr@false
  371.  \global\finalinfo@false
  372.  \bgroup\ignorespaces}
  373. \Invalid@\moreref
  374. \outer\def\ref{\begingroup
  375.  \noindent\hangindent20\p@\hangafter\@ne\firstref@true
  376.  \lastref@false\def\moreref{\egroup\endref@\global\firstref@false\ref@}\ref@}
  377. \def\refdef@#1#2{\def#1{\egroup
  378.  \csname\expandafter\eat@\string#1@true\endcsname
  379.  \expandafter\setbox
  380.  \csname\expandafter\eat@\string#1box@\endcsname\hbox\bgroup#2}}
  381. \refdef@\no\relax \refdef@\key\relax
  382. \def\manyby{\egroup\global\manyby@true\by@true\setbox\bybox@\hbox\bgroup}
  383. \def\by{\egroup\by@true\bysame@false\global\manyby@false
  384.  \setbox\bybox@\hbox\bgroup}
  385. \def\bysame{\egroup\bysame@true\bgroup}
  386. \refdef@\paper\it
  387. \refdef@\paperinfo\relax
  388. \def\jour{\egroup\jour@true\prevjour@true\setbox
  389.  \jourbox@\hbox\bgroup}
  390. \refdef@\vol\bf
  391. \refdef@\issue\relax \refdef@\yr\relax
  392. \def\toappear{\egroup\toappear@true\bgroup}
  393. \refdef@\pages\relax
  394. \def\page{\egroup\page@true\setbox\pagesbox@\hbox\bgroup}
  395. \refdef@\book\relax
  396. \def\inbook{\egroup\inbook@true\previnbook@true\setbox
  397.  \bookbox@\hbox\bgroup}
  398. \refdef@\bookinfo\relax
  399. \refdef@\publ\relax
  400. \refdef@\publaddr\relax
  401. \refdef@\finalinfo\relax
  402. \def\setpunct@{\def\prepunct@{\ifnum\lastpenalty<0
  403.  \edef\penalty@{\penalty\the\lastpenalty}\unpenalty,\ifafterbook@''\fi
  404.   \penalty@\relax\space\else
  405.  \ifdim\lastskip=\@ne sp\unskip\unskip
  406.  \edef\penalty@{\penalty\the\lastpenalty}\unpenalty,\ifafterbook@''\fi
  407.   \penalty@\relax\space
  408.  \else,\ifafterbook@''\fi\space\fi\fi\afterbook@false}}
  409. \def\ppunbox@#1{\prepunct@\unhbox#1\unskip}
  410. \def\endref@{\let\prepunct@\relax
  411.  \iffirstref@
  412.   \ifno@\hbox to20\p@{\hss\unhbox\nobox@\unskip. }\else\hbox to10\p@{}\fi
  413.   \ifkey@\unhbox\keybox@\unskip\ \fi
  414.   \ifmanyby@
  415.    \ifby@\hbox{\unhcopy\bybox@\unskip}\setpunct@
  416.   \global\setbox\bysamebox@\hbox{\unhcopy\bybox@\unskip}\else
  417.   \ifbysame@\ifdim\wd\bysamebox@>\maxbysamerule@
  418.     \hbox to\maxbysamerule@{\leaders\hrule\hfill}\else
  419.     \hbox to \wd\bysamebox@{\leaders\hrule\hfill}\fi\setpunct@\fi
  420.    \fi
  421.   \else
  422.   \ifby@\unhcopy\bybox@\unskip\setpunct@\fi\fi
  423.  \fi
  424.  \ifpaper@\ppunbox@\paperbox@\setpunct@\fi
  425.  \ifpaperinfo@\ppunbox@\paperinfobox@\setpunct@\fi
  426.  \ifjour@\ppunbox@\jourbox@\setpunct@
  427.    \ifvol@\ \unhbox\volbox@\unskip\setpunct@\fi
  428.    \ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
  429.    \ifyr@\ (\unhbox\yrbox@\unskip)\setpunct@\fi
  430.    \iftoappear@\ (to appear)\setpunct@\fi
  431.    \ifpages@\ppunbox@\pagesbox@\setpunct@\fi
  432.    \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  433.  \else
  434.   \ifprevjour@\unskip\nojourinfo@false
  435.    \ifvol@\else\ifissue@\else\ifyr@\else\nojourinfo@true\fi\fi\fi
  436.    \ifnojourinfo@\else,\fi
  437.    \ifvol@\ \unhbox\volbox@\unskip\setpunct@\fi
  438.    \ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
  439.    \ifyr@\ (\unhbox\yrbox@\unskip)\setpunct@\fi
  440.    \iftoappear@\ (to appear)\setpunct@\fi
  441.    \ifpages@\ppunbox@\pagesbox@\setpunct@\fi
  442.    \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  443.   \fi
  444.  \fi
  445.  \ifbook@\prepunct@``\unhbox\bookbox@\unskip\afterbook@true\setpunct@\fi
  446.  \ifinbook@\prepunct@\unskip\ in ``\unhbox\bookbox@\unskip\afterbook@true
  447.   \setpunct@\global\book@true\fi
  448.  \ifbookinfo@\ppunbox@\bookinfobox@\setpunct@\fi
  449.  \ifpubl@\ppunbox@\publbox@\setpunct@\fi
  450.  \ifpubladdr@\ppunbox@\publaddrbox@\setpunct@\fi
  451.  \ifbook@
  452.   \ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
  453.   \iftoappear@\ifafterbook@''\fi\ (to appear)\afterbook@false
  454.    \setpunct@\fi
  455.   \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  456.   \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  457.  \else
  458.   \ifprevinbook@\unskip
  459.    \ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
  460.    \iftoappear@\ (to appear)\setpunct@\fi
  461.    \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  462.    \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
  463.   \fi
  464.  \fi
  465. \iffinalinfo@.\ifafterbook@''\fi\afterbook@false
  466. \spacefactor3000\relax\space\unhbox\finalinfobox@\else
  467.  \iflastref@.\ifafterbook@''\fi\afterbook@false\else;\ifafterbook@''\fi
  468.   \afterbook@false\space\fi
  469. \fi}
  470. \def\endref{\egroup\global\lastref@true\endref@\global\prevjour@false\global
  471.  \previnbook@false\par\endgroup}
  472. \newif\iflogo@
  473. \def\nologo{\logo@false}
  474. \logo@true
  475. \output={\output@}
  476. \def\output@{%
  477.  \ifnum\pageno=\@ne\shipout\vbox{\vbox to\vsize
  478.   {\boxmaxdepth\maxdepth\pagecontents}\baselineskip2pc
  479.   \iflogo@\hbox to\hsize{\hfil\eightpoint Typeset by \AmSTeX}\fi}\else
  480.  \shipout\vbox{\vbox to\vsize
  481.   {\boxmaxdepth\maxdepth\pagecontents}\baselineskip2pc
  482.   \hbox to\hsize{\hfil\tenpoint\number\pageno\hfil}}%
  483.  \fi
  484.  \global\advance\pageno\@ne
  485.  \ifnum\outputpenalty>-\@MM\else\dosupereject\fi}
  486. \def\footnoterule{\vskip-3\p@\hrule width 2truein \vskip 2.6\p@}
  487. \tenpoint
  488. \catcode`\@=\active
  489. \def\styname{amsppt}\def\styversion{1.0}
  490.  
  491.